COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00005 ENDMK
C⊗;

αXDEFINE ≡⊗↔⊗; enter pointed file in readwrite mode
αxpo⊗↔αxreadw⊗↔αβ⊗↓

αXDEFINE ∩⊗↔⊗; take line back to file of files
αcαh⊗↔αeα↑⊗=⊗=αdαβ⊗↓

αXDEFINE MEM⊗↔⊗; standard start of memos
αβ⊗↔.require "memo.pub[let,jmc]" source;⊗↔.cb αβ⊗↓

αXDEFINE AIL⊗↔⊗; standard start of AI letter
αβ⊗↔.require "let.pub[let,jmc]" source;⊗↔
∂AIL αβ⊗↓

αXDEFINE CSL⊗↔⊗; standard start of CS letter
αβ⊗↔.require "let.pub[let,jmc]" source;⊗↔
∂CSL αβ⊗↓

αxdefine msg⊗↔⊗; switching to the message file
α⊗↔⊗↔αεmsg.msg[1,jmc]/∞p⊗↔αβ⊗↓

αxdefine fil⊗↔⊗; switching to the file of files
α⊗↔⊗↔αεfiles[let,jmc]/1p⊗↔αβ⊗↓

αxdefine cal⊗↔⊗; switching to the calendar file
α⊗↔⊗↔αεcal[1,jmc]/7p⊗↔αβ⊗↓

αxdefine ∪⊗↔⊗; switching to the message file
α⊗↔αεmsg.msg[1,jmc]/∞p⊗↔αβ⊗↓

αxdefine $⊗↔⊗; putting in an equation number. execute macro after typing symbol
αi α⊗Bαb  αi({eq αs αdβ}β)αβ⊗↓

αXDEFINE TASK⊗↔⊗; puts attach buffer in TASKS file
αβεtasks[1,jmc]/2p/∞l⊗↔αβeβ⊗↔αhαβ⊗↓

αxdefine ofi⊗↔⊗; switching to the phon file and starting a search
α⊗↔αεphon[1,jmc]/2p⊗↔αβxfind αβ⊗↓

αxdefine adr⊗↔⊗; putting my address in file
⊗↔Professor John McCarthy⊗↔Computer Science Department
⊗↔Stanford University⊗↔Stanford California 94305⊗↔αβ⊗↓